home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir43
/
qsrc_dsk.zip
/
MODEL
/
PRODUCT
/
PRODUCT.SPR
< prev
next >
Wrap
Text File
|
1991-12-16
|
5KB
|
178 lines
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ 12/16/91 PRODUCT.SPR 15:15:03 ║
* ║ ║
* ╟─────────────────────────────────────────────────────────╢
* ║ ║
* ║ Application Developed in _Using FoxPro 2_ ║
* ║ ║
* ║ Copyright (c) 1991 Lisa C. Slater and Steven E. Arnott ║
* ║ Que Publishing (800)-428-5331 ║
* ║ City, Zip ║
* ║ ║
* ║ Description: ║
* ║ This program was automatically generated by GENSCRN. ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat
IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
ELSE
m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS
m.currarea = SELECT()
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ Window definitions ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
IF NOT WEXIST("product")
DEFINE WINDOW product ;
FROM INT((SROW()-7)/2),INT((SCOL()-35)/2) ;
TO INT((SROW()-7)/2)+6,INT((SCOL()-35)/2)+34 ;
TITLE " PRODUCT " ;
FLOAT ;
CLOSE ;
SHADOW ;
COLOR SCHEME 1
ENDIF
IF NOT WEXIST("_q1f0worhv")
DEFINE WINDOW _q1f0worhv ;
FROM INT((SROW()-16)/2),INT((SCOL()-60)/2) ;
TO INT((SROW()-16)/2)+15,INT((SCOL()-60)/2)+59 ;
FLOAT ;
NOCLOSE ;
SHADOW ;
DOUBLE ;
COLOR SCHEME 5
ENDIF
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ PRODUCT Screen Layout ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
IF WVISIBLE("product")
ACTIVATE WINDOW product SAME
ELSE
ACTIVATE WINDOW product NOSHOW
ENDIF
@ 1,1 SAY "Prodcode"
@ 1,11 GET prodcode ;
SIZE 1,5 ;
DEFAULT " "
@ 3,1 SAY "Prodname"
@ 3,11 GET prodname ;
SIZE 1,20 ;
DEFAULT " "
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ WIDGBOUT Screen Layout ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 2
IF WVISIBLE("_q1f0worhv")
ACTIVATE WINDOW _q1f0worhv SAME
ELSE
ACTIVATE WINDOW _q1f0worhv NOSHOW
ENDIF
@ 4,7,8,49 BOX "┌─┐│┘─└│ "
@ 5,14 SAY " U S I N G F O X P R O 2 "
@ 7,10 SAY "by Lisa C. Slater and Steven E. Arnott"
@ 1,11 SAY "This application was created from "
@ 2,6 SAY "the techniques and model database detailed in"
@ 9,9 TO 9,50 "▀"
@ 5,50 TO 8,50 PANEL
@ 13,3 GET m.done ;
PICTURE "@*HN \<More;\<Done" ;
SIZE 1,6,40 ;
DEFAULT 1 ;
VALID _q1f0wostp()
@ 12,22 SAY "(800) 428-5331"
@ 11,20 SAY "ISBN 0-88022-703-6"
@ 10,22 SAY "Que Publishing"
IF NOT WVISIBLE("_q1f0worhv")
ACTIVATE WINDOW _q1f0worhv
ENDIF
IF NOT WVISIBLE("product")
ACTIVATE WINDOW product
ENDIF
READ CYCLE
RELEASE WINDOW _q1f0worhv
RELEASE WINDOW product
SELECT (m.currarea)
#REGION 0
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _Q1F0WOSTP m.done VALID ║
* ║ ║
* ║ Function Origin: ║
* ║ ║
* ║ From Screen: WIDGBOUT, Record Number: 9 ║
* ║ Variable: m.done ║
* ║ Called By: VALID Clause ║
* ║ Object Type: Push Button ║
* ║ Snippet Number: 1 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
FUNCTION _q1f0wostp && m.done VALID
#REGION 2
PRIVATE mrow, mcol
IF m.done = 1
mrow = WLROW(WONTOP())
mcol = WLCOL(WONTOP())
DEFINE WINDOW w_about ;
FROM mrow, mcol;
TO mrow + 1 + WROWS(WONTOP()), ;
mcol + 1 + WCOLS(WONTOP()) ;
CLOSE ;
SHADOW ;
DOUBLE ;
COLOR SCHEME 5 ;
NOFLOAT NOGROW NOZOOM ;
TITLE " About The Widget Application "
MODI FILE widgbout.txt NOMODIFY WINDOW w_about
RELEASE WINDOW w_about
ELSE
CLEAR READ
ENDIF